home *** CD-ROM | disk | FTP | other *** search
/ Aminet 30 / Aminet 30 (1999)(Schatztruhe)[!][Apr 1999].iso / Aminet / gfx / conv / PPT_dist.lha / PPT / install < prev    next >
Text File  |  1999-02-21  |  7KB  |  294 lines
  1. ;
  2. ;  PPT Installer script
  3. ;
  4. ;  $Revision: 1.9 $
  5. ;      $Date: 1999/02/21 21:08:53 $
  6. ;
  7.  
  8. (welcome "This is the PPT Installation utility."
  9.          "Thank you for choosing to test PPT.")
  10.  
  11. ;
  12. ;  Set defaults
  13. ;
  14.  
  15. (set ##installdir "Work:")
  16.  
  17. ; Processor
  18.  
  19. (set ##use020 (not (patmatch "68000|68010" (database "cpu"))))
  20.  
  21. ; FPU
  22.  
  23. (set ##use881 (not (patmatch "688|68040|68060" (database "cpu"))))
  24.  
  25. ; If user-level is expert, ask which versions to install.
  26.  
  27. (if (= @user-level 2)
  28.     (set ##use020
  29.          (askbool
  30.           (prompt "\n"
  31.                   "Do you wish to use the 68020+ optimized\n"
  32.                   "versions of the BGUI library and PPT?")
  33.           (help   (cat "It might be a good idea to install the version "
  34.                        "that best suits your Amiga's processor." ))
  35.           (default ##use020)
  36.           )
  37.          )
  38.   )
  39.  
  40. (debug "Use020 : " ##use020)
  41. (debug "Use881 : " ##use881)
  42.  
  43. ;
  44. ;  Ask the directory to be installed in
  45. ;
  46.  
  47. (set ##installdir
  48.     (askdir
  49.         (prompt "Choose the directory you wish to install\n"
  50.                 "PPT in.  A directory called 'PPT' will be\n"
  51.                 "created for you in this directory"
  52.         )
  53.         (help   (cat "Choose the top directory for PPT.  Installer will "
  54.                      "then create a directory called 'PPT' in the directory "
  55.                      "you chose and copy all of the PPT software in that "
  56.                      "directory.\n\n"
  57.                      @askdir-help) )
  58.         (default ##installdir)
  59.     )
  60. )
  61.  
  62. (debug "You chose" ##installdir)
  63.  
  64. ;
  65. ;   Tack on the dir name
  66. ;
  67.  
  68. (set @default-dest (tackon ##installdir "PPT"))
  69. (debug "You chose" @default-dest)
  70.  
  71. ;
  72. ;   Remove old modules
  73. ;
  74.  
  75. (complete 20)
  76.  
  77. (if (exists @default-dest)
  78.     (delete
  79.         (tackon @default-dest "modules/#?")
  80.         (prompt "Deleting previous installation")
  81.         (help   "Since PPT modules can change between releases, "
  82.                 "for now the previous installation must be deleted "
  83.                 "before the new one is installed.")
  84.         (confirm)
  85.         (all)
  86.     )
  87.     (debug "No previous installation")
  88. )
  89.  
  90. ;
  91. ;   Copy main executables
  92. ;
  93.  
  94. (complete 30)
  95.  
  96. (copyfiles
  97.     (prompt "Installing PPT executable")
  98.     (source (if (= ##use020 1) "ppt020" "ppt" ) )
  99.     (dest @default-dest)
  100.     (newname "ppt")
  101.     (help @copyfiles-help)
  102. )
  103.  
  104.  
  105. ;; Copy docs
  106.  
  107. (complete 40)
  108.  
  109. (copyfiles
  110.     (prompt "Installing documents")
  111.     (source "Docs")
  112.     (dest (tackon @default-dest "Docs") )
  113.     (help (cat "Choose which document files you want to install. "
  114.                "I really recommend you install them all.\n\n"
  115.                @copyfiles-help) )
  116.     (all)
  117.     (infos)
  118.     (confirm)
  119. )
  120.  
  121. ;; Copying image files
  122.  
  123. (complete 45)
  124.  
  125. (copyfiles
  126.     (prompt "Installing image files")
  127.     (source "Images")
  128.     (dest (tackon @default-dest "Images") )
  129.     (help (cat "Choose which images you wish to install. "
  130.                "You don't have to install them, if you don't want to.\n\n"
  131.                @copyfiles-help) )
  132.     (all)
  133.     (infos)
  134.     (confirm)
  135. )
  136.  
  137.  
  138. (complete 50)
  139.  
  140. (copyfiles
  141.     (prompt "Installing miscallaneous stuff")
  142.     (source "")
  143.     (choices "README" "HISTORY" "ReleaseNotes" "ppt.asc" "ModuleInfo" "GUI" "Contrib")
  144.     (dest @default-dest)
  145.     (help (cat "Choose which additional files you wish to install. "
  146.                "Again, I recommend you to install these all, as these "
  147.                "contain the release notes, the ModuleInfo utility, "
  148.                "the icons, and contributed stuff.\n\n"
  149.                @copyfiles-help) )
  150.     (infos)
  151.     (confirm)
  152. )
  153.  
  154. (complete 60)
  155.  
  156. (copyfiles
  157.     (prompt "Installing REXX scripts")
  158.     (source "rexx")
  159.     (dest (tackon @default-dest "rexx") )
  160.     (help (cat "Here you can choose not to install all of the REXX scripts. "
  161.                "I really recommend that you install them all.\n\n"
  162.                @copyfiles-help) )
  163.     (all)
  164.     (infos)
  165.     (confirm)
  166. )
  167.  
  168.  
  169. ;; PPT libraries
  170.  
  171. (complete 70)
  172.  
  173. (copyfiles
  174.     (prompt "Installing PPT external modules")
  175.     (source "modules")
  176.     (dest   (tackon @default-dest "modules") )
  177.     (help   (cat "Choose which external modules you'd like to install. "
  178.                  "If you wish to save space, you can remove those modules "
  179.                  "you think you're not going to need, such as the modules "
  180.                  "which have not been compiled for your processor.  However, "
  181.                  "PPT can figure out which processor your machine has and "
  182.                  "determine, which module is the best for you.  So you don't "
  183.                  "really need to remove any of these modules.\n\n"
  184.                  @copyfiles-help) )
  185.     (confirm)
  186.     (all)
  187. )
  188.  
  189. ;(copyfiles
  190. ;    (prompt "Copying PPT executables & modules")
  191. ;    (source "")
  192. ;    (dest @default-dest)
  193. ;    (pattern "~(libs)")
  194. ;    (help   @copyfiles-help)
  195. ;)
  196.  
  197. (copyfiles
  198.     (prompt "Installing icons")
  199.     (source "")
  200.     (pattern "(PPT|README|Docs|ReleaseNotes|rexx|Images).info")
  201.     (dest   @default-dest)
  202.     (help   @copyfiles-help)
  203.     (infos)
  204. )
  205.  
  206. (copyfiles
  207.     (prompt "Installing drawer icon")
  208.     (source "/PPT.info")
  209.     (dest   (tackon @default-dest "/"))
  210.     (help   @copyfiles-help)
  211.     (infos)
  212. )
  213.  
  214.  
  215. ;
  216. ;   Install libraries
  217. ;
  218.  
  219. (complete 80)
  220.  
  221. (copylib
  222.     (prompt "Copying BGUI library")
  223.     (confirm)
  224.     (source (if (= ##cpu020 1) ("libs/bgui.library_e") ("libs/bgui.library")))
  225.     (dest   "libs:")
  226.     (newname "bgui.library")
  227.     (help   @copylib-help)
  228. )
  229.  
  230. (copylib
  231.     (prompt "Copying BGUI floating point gadget")
  232.     (confirm)
  233.     (source "libs/bgui_float.gadget")
  234.     (dest   "SYS:Classes/Gadgets")
  235.     (help   @copylib-help)
  236. )
  237.  
  238. (copylib
  239.     (prompt "Copying BGUI bitmap gadget")
  240.     (confirm)
  241.     (source "libs/bgui_bitmap.image")
  242.     (dest   "SYS:Classes/Gadgets")
  243.     (help   @copylib-help)
  244. )
  245.  
  246. (copylib
  247.     (prompt "Copying BGUI palette gadget")
  248.     (confirm)
  249.     (source "libs/bgui_palette.gadget")
  250.     (dest   "SYS:Classes/Gadgets")
  251.     (help   @copylib-help)
  252. )
  253.  
  254. ;
  255. ;   Make assigns
  256. ;
  257.  
  258. (complete 90)
  259.  
  260. (set ##jpegdir
  261.     (askdir
  262.         (prompt "You must now choose a place for any "
  263.                 "temporary JPEG files to be put in. "
  264.                 "(See Help for more info)"
  265.         )
  266.         (help   "The JPEG loader needs a JPEGTMP: assign "
  267.                 "in order to handle really large progressive "
  268.                 "or multi-scan files.  If you already happen "
  269.                 "to have this assign, just say 'Skip This Phase'. "
  270.                 "If not, then you should pick up a hard drive "
  271.                 "directory with plenty of space."
  272.         )
  273.         (default ##installdir)
  274.     )
  275. )
  276.  
  277. (makeassign "JPEGTMP" ##jpegdir)
  278.  
  279. (set ##jpegassign ("Assign >NIL: JPEGTMP: %s" ##jpegdir))
  280.  
  281. (startup "PPT JPEG loader"
  282.     (prompt ( "\nI shall now add the following line\nto your S:User-Startup:\n\n%s"
  283.                ##jpegassign)
  284.             )
  285.     (command ##jpegassign )
  286.     (help @startup-help)
  287. )
  288.  
  289. ;
  290. ;   The END.
  291. ;
  292. (complete 100)
  293.  
  294.